home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / User Contributions / applescript-from-lisp / OSA.lisp next >
Encoding:
Text File  |  1994-06-16  |  25.5 KB  |  580 lines  |  [TEXT/CCL2]
  1. (in-package :TRAPS)             ; 
  2. ; ////////////////////////////////////////////////////////////////////////////
  3. ; ////
  4. ; // OPEN SCRIPTING ARCHITECTURE: Client Interface
  5. ; ////////////////////////////////////////////////////////////////////////////
  6. ; ////
  7. ; // Copyright   1992 Apple Computer, Inc. All rights reserved.
  8. ; // Authors: Jens Alfke, William Cook, Donn Denman, and Warren Harris
  9. ; ////////////////////////////////////////////////////////////////////////////
  10. ; ////
  11. ; // This interface defines what it means to be a "scripting component."
  12. ; // Scripting components allow "scripts" to be loaded and executed.  This
  13. ; // interface does not define the way in which a particular scripting
  14. ; // component's scripts are editing and debugged.
  15. ; ////////////////////////////////////////////////////////////////////////////
  16. ; ////
  17. ; 
  18.  
  19. ; $IFC UNDEFINED UsingIncludes
  20. ; $SETC UsingIncludes := 0
  21. ; $ENDC
  22.  
  23. ; $IFC NOT UsingIncludes
  24.  
  25. ; $ENDC
  26.  
  27. ; $IFC UNDEFINED UsingOSA
  28. ; $SETC UsingOSA := 1
  29.  
  30. ; $I+
  31. ; $SETC OSAIncludes := UsingIncludes
  32. ; $SETC UsingIncludes := 1
  33. ; $IFC UNDEFINED UsingAppleEvents
  34.  
  35. (require-interface 'APPLEEVENTS); $I $$Shell(PInterfaces)AppleEvents.p
  36. ; $ENDC
  37. ; $IFC UNDEFINED UsingComponents
  38.  
  39. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  40. ; $ENDC
  41. ; $SETC UsingIncludes := OSAIncludes
  42.  
  43. ;  Types and Constants 
  44.  
  45. (defconstant $kOSAComponentType :|osa |)
  46. (defconstant $kOSAGenericScriptingComponentSubtype :|scpt|)
  47.  
  48. (def-mactype :OSAID (find-mactype :SIGNED-LONG))
  49. (def-mactype :OSAERROR (find-mactype :SIGNED-LONG))
  50.  
  51. (defconstant $kOSANullScript 0)
  52.  
  53. (defconstant $kOSAScriptResourceType #$KOSAGENERICSCRIPTINGCOMPONENTSUBTYPE)
  54. (defconstant $typeOSAGenericStorage #$KOSASCRIPTRESOURCETYPE)
  55.  
  56. ;  Error Codes 
  57. (defconstant $errOSACorruptData -1702);  Same as errAECorruptData 
  58. (defconstant $errOSASystemError -1750)
  59. (defconstant $errOSAInvalidID -1751)
  60. (defconstant $errOSABadStorageType -1752)
  61. (defconstant $errOSAScriptError -1753)
  62. (defconstant $errOSABadSelector -1754)
  63. (defconstant $errOSAInvalidAccess -1755)
  64. (defconstant $errOSARecordingIsAlreadyOn -30009)
  65.  
  66. ; 
  67. ; ////////////////////////////////////////////////////////////////////////////
  68. ; ////
  69. ; // OSA Interface Descriptions
  70. ; ////////////////////////////////////////////////////////////////////////////
  71. ; ////
  72. ; // The OSA Interface is broken down into a required interface, and several
  73. ; // optional interfaces to support additional functionality.  A given
  74. ; scripting
  75. ; // component may choose to support only some of the optional interfaces in
  76. ; // addition to the basic interface.  The OSA Component Flags may be used to
  77. ; 
  78. ; // query the Component Manager to find a scripting component with a
  79. ; particular
  80. ; // capability, or determine if a particular scripting component supports a 
  81. ; // particular capability.
  82. ; ////////////////////////////////////////////////////////////////////////////
  83. ; ////
  84. ; 
  85.  
  86. ;  OSA Component Flags 
  87. (defconstant $kOSASupportsCompiling 1)
  88. (defconstant $kOSASupportsGetSource 2)
  89. (defconstant $kOSASupportsAECoercion 4)
  90. (defconstant $kOSASupportsAESending 8)
  91. (defconstant $kOSASupportsRecording 16)
  92. (defconstant $kOSASupportsWindowEditing 32)
  93. (defconstant $kOSASupportsDialects 64)
  94. (defconstant $kOSASupportsTinkering 128)
  95.  
  96. ;  Component Selectors 
  97. ;  Basic Scripting: 
  98. (defconstant $kOSASelectLoad #X1)
  99. (defconstant $kOSASelectStore #X2)
  100. (defconstant $kOSASelectExecute #X3)
  101. (defconstant $kOSASelectDisplay #X4)
  102. (defconstant $kOSASelectScriptError #X5)
  103. (defconstant $kOSASelectDispose #X6)
  104. (defconstant $kOSASelectSetScriptInfo #X7)
  105. (defconstant $kOSASelectGetScriptInfo #X8)
  106. (defconstant $kOSASelectSetActiveProc #X9)
  107. (defconstant $kOSASelectGetActiveProc #XA)
  108. ;  Compiling: 
  109. (defconstant $kOSASelectExactScriptingComponent #X101)
  110. (defconstant $kOSASelectScriptingComponentName #X102)
  111. (defconstant $kOSASelectCompile #X103)
  112. (defconstant $kOSASelectCopyID #X104)
  113. ;  GetSource: 
  114. (defconstant $kOSASelectGetSource #X201)
  115. ;  AECoercion: 
  116. (defconstant $kOSASelectCoerceFromDesc #X301)
  117. (defconstant $kOSASelectCoerceToDesc #X302)
  118. ;  AESending: 
  119. (defconstant $kOSASelectSetSendProc #X401)
  120. (defconstant $kOSASelectGetSendProc #X402)
  121. (defconstant $kOSASelectSetCreateProc #X403)
  122. (defconstant $kOSASelectGetCreateProc #X404)
  123. ;  Recording: 
  124. (defconstant $kOSASelectStartRecording #X501)
  125. (defconstant $kOSASelectStopRecording #X502)
  126. ;  WindowEditing:
  127. ;       kOSASelectOpenEditor                            = $0601;
  128. ;       kOSASelectCloseEditor                           = $0602;
  129. ;       { Dialects: 
  130. (defconstant $kOSASelectSetCurrentDialect #X701)
  131. (defconstant $kOSASelectGetCurrentDialect #X702)
  132. (defconstant $kOSASelectAvailableDialects #X703)
  133. ;  Tinkering: 
  134. (defconstant $kOSASelectExecuteEvent #X801)
  135. (defconstant $kOSASelectMakeContext #X802)
  136.  
  137. (defconstant $kOSASelectComponentSpecificStart #X1001)
  138. ;  scripting component specific selectors are added beginning with this 
  139. ;         value 
  140.  
  141. ; 
  142. ; ////////////////////////////////////////////////////////////////////////////
  143. ; ////
  144. ; // OSA Basic Scripting Interface
  145. ; ////////////////////////////////////////////////////////////////////////////
  146. ; ////
  147. ; // Scripting components must at least support the Basic Scripting
  148. ; interface.
  149. ; ////////////////////////////////////////////////////////////////////////////
  150. ; ////
  151. ; 
  152.  
  153. ;  Loading and Storing Scripts 
  154.  
  155.  
  156. (deftrap _OSALOAD ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  157.                    (SCRIPTDATA :AEDESC) (RESULTINGSCRIPTID (:POINTER :SIGNED-LONG)))
  158.          (:STACK :SIGNED-LONG)
  159.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTDATA RESULTINGSCRIPTID
  160.                ((+ (ASH 8 16) 1) :SIGNED-LONGINT)))
  161.  
  162.  
  163. (deftrap _OSASTORE ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  164.                     (SCRIPTID :SIGNED-LONG) (DESIREDTYPE :OSTYPE) (RESULTINGSCRIPTDATA (:POINTER
  165.                                                                                         :AEDESC)))
  166.          (:STACK :SIGNED-LONG)
  167.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID DESIREDTYPE
  168.                RESULTINGSCRIPTDATA ((+ (ASH 12 16) 2) :SIGNED-LONGINT)))
  169.  
  170. ;  Executing Scripts 
  171.  
  172.  
  173. (deftrap _OSAEXECUTE ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  174.                       (COMPILEDSCRIPTID :SIGNED-LONG) (CONTEXTID :SIGNED-LONG) (MODEFLAGS
  175.                                                                                 :SIGNED-LONG) (RESULTINGSCRIPTVALUEID (:POINTER :SIGNED-LONG)))
  176.          (:STACK :SIGNED-LONG)
  177.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT COMPILEDSCRIPTID CONTEXTID
  178.                MODEFLAGS RESULTINGSCRIPTVALUEID ((+ (ASH 16 16) 3) :SIGNED-LONGINT)))
  179.  
  180. ;  Displaying Results 
  181.  
  182.  
  183. (deftrap _OSADISPLAY ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  184.                       (SCRIPTVALUEID :SIGNED-LONG) (DESIREDTYPE :OSTYPE) (MODEFLAGS :SIGNED-LONG)
  185.                       (RESULTINGTEXT (:POINTER :AEDESC)))
  186.          (:STACK :SIGNED-LONG)
  187.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTVALUEID DESIREDTYPE
  188.                MODEFLAGS RESULTINGTEXT ((+ (ASH 16 16) 4) :SIGNED-LONGINT)))
  189.  
  190. ;  Getting Error Information 
  191.  
  192.  
  193. (deftrap _OSASCRIPTERROR ((SCRIPTINGCOMPONENT (:POINTER
  194.                                                :COMPONENTINSTANCERECORD)) (SELECTOR :OSTYPE) (DESIREDTYPE :OSTYPE)
  195.                           (RESULTINGERRORDESCRIPTION (:POINTER :AEDESC)))
  196.          (:STACK :SIGNED-LONG)
  197.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SELECTOR DESIREDTYPE
  198.                RESULTINGERRORDESCRIPTION ((+ (ASH 12 16) 5) :SIGNED-LONGINT)))
  199.  
  200. ;  OSAScriptError selectors: 
  201. (defconstant $kOSAErrorNumber :|errn|)
  202. (defconstant $kOSAErrorMessage :|errs|)
  203. (defconstant $kOSAErrorBriefMessage :|errb|)
  204. (defconstant $kOSAErrorApp :|erap|)
  205. (defconstant $kOSAErrorPartialResult :|ptlr|)
  206. (defconstant $kOSAErrorOffendingObject :|erob|)
  207. (defconstant $kOSAErrorRange :|erng|)
  208.  
  209. ;  text ranges: 
  210. (defconstant $typeOSAErrorRange :|erng|)
  211. (defconstant $keySourceStart :|srcs|)
  212. (defconstant $keySourceEnd :|srce|)
  213.  
  214. ;  Disposing Script IDs 
  215.  
  216.  
  217. (deftrap _OSADISPOSE ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  218.                       (SCRIPTID :SIGNED-LONG))
  219.          (:STACK :SIGNED-LONG)
  220.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID ((+ (ASH 4 16) 6)
  221.                                                          :SIGNED-LONGINT)))
  222.  
  223. ;  Getting and Setting Script Information 
  224.  
  225.  
  226. (deftrap _OSASETSCRIPTINFO ((SCRIPTINGCOMPONENT (:POINTER
  227.                                                  :COMPONENTINSTANCERECORD)) (SCRIPTID :SIGNED-LONG) (SELECTOR :OSTYPE) (VALUE
  228.                                                                                                                         :SIGNED-LONG))
  229.          (:STACK :SIGNED-LONG)
  230.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID SELECTOR VALUE ((+
  231.                                                                          (ASH 12 16) 7) :SIGNED-LONGINT)))
  232.  
  233.  
  234. (deftrap _OSAGETSCRIPTINFO ((SCRIPTINGCOMPONENT (:POINTER
  235.                                                  :COMPONENTINSTANCERECORD)) (SCRIPTID :SIGNED-LONG) (SELECTOR :OSTYPE) (RESULT
  236.                                                                                                                         (:POINTER :SIGNED-LONG)))
  237.          (:STACK :SIGNED-LONG)
  238.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID SELECTOR RESULT ((+
  239.                                                                           (ASH 12 16) 8) :SIGNED-LONGINT)))
  240.  
  241. ;  selectors 
  242. (defconstant $kOSAScriptIsModified :|modi|)
  243. (defconstant $kOSAScriptIsBeingEdited :|edit|)
  244. (defconstant $kOSAScriptIsBeingRecorded :|recd|)
  245. (defconstant $kOSAScriptIsTypeCompiledScript :|cscr|)
  246. (defconstant $kOSAScriptIsTypeScriptValue :|valu|)
  247. (defconstant $kOSAScriptIsTypeScriptContext :|cntx|)
  248. (defconstant $kOSAScriptBestType :|best|)
  249.  
  250. ;  Manipulating the ActiveProc 
  251.  
  252. (def-mactype :OSAACTIVEPROCPTR (find-mactype :POINTER))
  253.  
  254.  
  255. (deftrap _OSASETACTIVEPROC ((SCRIPTINGCOMPONENT (:POINTER
  256.                                                  :COMPONENTINSTANCERECORD)) (ACTIVEPROC :POINTER) (REFCON :SIGNED-LONG))
  257.          (:STACK :SIGNED-LONG)
  258.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT ACTIVEPROC REFCON ((+ (ASH 8
  259.                                                                           16) 9) :SIGNED-LONGINT)))
  260.  
  261.  
  262. (deftrap _OSAGETACTIVEPROC ((SCRIPTINGCOMPONENT (:POINTER
  263.                                                  :COMPONENTINSTANCERECORD)) (ACTIVEPROC (:POINTER :POINTER)) (REFCON (:POINTER
  264.                                                                                                                       :SIGNED-LONG)))
  265.          (:STACK :SIGNED-LONG)
  266.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT ACTIVEPROC REFCON ((+ (ASH 8
  267.                                                                           16) 10) :SIGNED-LONGINT)))
  268.  
  269. ; 
  270. ; ////////////////////////////////////////////////////////////////////////////
  271. ; ////
  272. ; // OSA Optional Compiling Interface
  273. ; ////////////////////////////////////////////////////////////////////////////
  274. ; ////
  275. ; // Scripting components that support the Compiling interface have the 
  276. ; // kOSASupportsCompiling bit set in it's ComponentDescription.
  277. ; ////////////////////////////////////////////////////////////////////////////
  278. ; ////
  279. ; 
  280.  
  281.  
  282. (deftrap _OSAEXACTSCRIPTINGCOMPONENT ((SCRIPTINGCOMPONENT (:POINTER
  283.                                                            :COMPONENTINSTANCERECORD)) (SCRIPTID :SIGNED-LONG) (EXACTSCRIPTINGCOMPONENT
  284.                                                                                                                (:POINTER (:POINTER :COMPONENTINSTANCERECORD))))
  285.          (:STACK :SIGNED-LONG)
  286.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID
  287.                EXACTSCRIPTINGCOMPONENT ((+ (ASH 8 16) 257) :SIGNED-LONGINT)))
  288.  
  289.  
  290. (deftrap _OSASCRIPTINGCOMPONENTNAME ((SCRIPTINGCOMPONENT (:POINTER
  291.                                                           :COMPONENTINSTANCERECORD)) (RESULTINGSCRIPTINGCOMPONENTNAME (:POINTER
  292.                                                                                                                        :AEDESC)))
  293.          (:STACK :SIGNED-LONG)
  294.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT RESULTINGSCRIPTINGCOMPONENTNAME
  295.                ((+ (ASH 4 16) 258) :SIGNED-LONGINT)))
  296.  
  297.  
  298. (deftrap _OSACOMPILE ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  299.                       (SOURCEDATA :AEDESC) (MODEFLAGS :SIGNED-LONG) (RESULTINGCOMPILEDSCRIPTID
  300.                                                                      (:POINTER :SIGNED-LONG)))
  301.          (:STACK :SIGNED-LONG)
  302.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SOURCEDATA MODEFLAGS
  303.                RESULTINGCOMPILEDSCRIPTID ((+ (ASH 12 16) 259) :SIGNED-LONGINT)))
  304.  
  305.  
  306. (deftrap _OSACOPYID ((SCRIPTINGCOMPONENT (:POINTER :COMPONENTINSTANCERECORD))
  307.                      (FROMID :SIGNED-LONG) (TOID (:POINTER :SIGNED-LONG)))
  308.          (:STACK :SIGNED-LONG)
  309.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT FROMID TOID ((+ (ASH 8 16) 260)
  310.                                                             :SIGNED-LONGINT)))
  311.  
  312. ; 
  313. ; ////////////////////////////////////////////////////////////////////////////
  314. ; ////
  315. ; // OSA Optional GetSource Interface
  316. ; ////////////////////////////////////////////////////////////////////////////
  317. ; ////
  318. ; // Scripting components that support the GetSource interface have the 
  319. ; // kOSASupportsGetSource bit set in it's ComponentDescription.
  320. ; ////////////////////////////////////////////////////////////////////////////
  321. ; ////
  322. ; 
  323.  
  324.  
  325. (deftrap _OSAGETSOURCE ((SCRIPTINGCOMPONENT (:POINTER
  326.                                              :COMPONENTINSTANCERECORD)) (SCRIPTID :SIGNED-LONG) (DESIREDTYPE :OSTYPE)
  327.                         (RESULTINGSOURCEDATA (:POINTER :AEDESC)))
  328.          (:STACK :SIGNED-LONG)
  329.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTID DESIREDTYPE
  330.                RESULTINGSOURCEDATA ((+ (ASH 12 16) 513) :SIGNED-LONGINT)))
  331.  
  332. ; 
  333. ; ////////////////////////////////////////////////////////////////////////////
  334. ; ////
  335. ; // OSA Optional AECoercion Interface
  336. ; ////////////////////////////////////////////////////////////////////////////
  337. ; ////
  338. ; // Scripting components that support the AECoercion interface have the 
  339. ; // kOSASupportsGetSource bit set in it's ComponentDescription.
  340. ; ////////////////////////////////////////////////////////////////////////////
  341. ; ////
  342. ; 
  343.  
  344.  
  345. (deftrap _OSACOERCEFROMDESC ((SCRIPTINGCOMPONENT (:POINTER
  346.                                                   :COMPONENTINSTANCERECORD)) (SCRIPTDATA :AEDESC) (RESULTINGSCRIPTVALUEID
  347.                                                                                                    (:POINTER :SIGNED-LONG)))
  348.          (:STACK :SIGNED-LONG)
  349.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTDATA
  350.                RESULTINGSCRIPTVALUEID ((+ (ASH 8 16) 769) :SIGNED-LONGINT)))
  351.  
  352.  
  353. (deftrap _OSACOERCETODESC ((SCRIPTINGCOMPONENT (:POINTER
  354.                                                 :COMPONENTINSTANCERECORD)) (SCRIPTVALUEID :SIGNED-LONG) (DESIREDTYPE :OSTYPE)
  355.                            (RESULT (:POINTER :AEDESC)))
  356.          (:STACK :SIGNED-LONG)
  357.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SCRIPTVALUEID DESIREDTYPE
  358.                RESULT ((+ (ASH 12 16) 770) :SIGNED-LONGINT)))
  359.  
  360. ; 
  361. ; ////////////////////////////////////////////////////////////////////////////
  362. ; ////
  363. ; // OSA Optional AESending Interface
  364. ; ////////////////////////////////////////////////////////////////////////////
  365. ; ////
  366. ; // Scripting components that support the AESending interface have the 
  367. ; // kOSASupportsAESending bit set in it's ComponentDescription.
  368. ; ////////////////////////////////////////////////////////////////////////////
  369. ; ////
  370. ; 
  371.  
  372. (def-mactype :AESENDPROCPTR (find-mactype :POINTER))
  373. (def-mactype :AECREATEAPPLEEVENTPROCPTR (find-mactype :POINTER))
  374.  
  375. ;   The first two proc pointers have the following interfaces
  376. ;    taken from AppleEvents.p 
  377. ;    
  378. ;       FUNCTION AECreateAppleEvent(theAEEventClass: AEEventClass;
  379. ;                                                               theAEEventID: AEEventID;
  380. ;                                                               target: AEAddressDesc;
  381. ;                                                               returnID: INTEGER;
  382. ;                                                               transactionID: LONGINT;
  383. ;                                                               VAR result: AppleEvent): OSErr;
  384. ;       
  385. ;       FUNCTION AESend(theAppleEvent: AppleEvent;
  386. ;                                       VAR reply: AppleEvent;
  387. ;                                       sendMode: AESendMode;
  388. ;                                       sendPriority: AESendPriority;
  389. ;                                       timeOutInTicks: LONGINT;
  390. ;                                       idleProc: IdleProcPtr;
  391. ;                                       filterProc: EventFilterProcPtr): OSErr;
  392. ; 
  393. ;       FUNCTION OSAActive(): OSErr;
  394. ; 
  395. ; 
  396.  
  397.  
  398. (deftrap _OSASETSENDPROC ((SCRIPTINGCOMPONENT (:POINTER
  399.                                                :COMPONENTINSTANCERECORD)) (SENDPROC :POINTER) (REFCON :SIGNED-LONG))
  400.          (:STACK :SIGNED-LONG)
  401.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SENDPROC REFCON ((+ (ASH 8 16)
  402.                                                                    1025) :SIGNED-LONGINT)))
  403.  
  404.  
  405. (deftrap _OSAGETSENDPROC ((SCRIPTINGCOMPONENT (:POINTER
  406.                                                :COMPONENTINSTANCERECORD)) (SENDPROC (:POINTER :POINTER)) (REFCON (:POINTER
  407.                                                                                                                   :SIGNED-LONG)))
  408.          (:STACK :SIGNED-LONG)
  409.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT SENDPROC REFCON ((+ (ASH 8 16)
  410.                                                                    1026) :SIGNED-LONGINT)))
  411.  
  412.  
  413. (deftrap _OSASETCREATEPROC ((SCRIPTSYSTEM (:POINTER :COMPONENTINSTANCERECORD))
  414.                             (CREATEPROC :POINTER) (REFCON :SIGNED-LONG))
  415.          (:STACK :SIGNED-LONG)
  416.   (:STACK-TRAP #xA82A :D0 0 SCRIPTSYSTEM CREATEPROC REFCON ((+ (ASH 8 16)
  417.                                                                1027) :SIGNED-LONGINT)))
  418.  
  419.  
  420. (deftrap _OSAGETCREATEPROC ((SCRIPTSYSTEM (:POINTER :COMPONENTINSTANCERECORD))
  421.                             (CREATEPROC (:POINTER :POINTER)) (REFCON (:POINTER :SIGNED-LONG)))
  422.          (:STACK :SIGNED-LONG)
  423.   (:STACK-TRAP #xA82A :D0 0 SCRIPTSYSTEM CREATEPROC REFCON ((+ (ASH 8 16)
  424.                                                                1028) :SIGNED-LONGINT)))
  425.  
  426. ; 
  427. ; ////////////////////////////////////////////////////////////////////////////
  428. ; ////
  429. ; // OSA Optional Recording Interface
  430. ; ////////////////////////////////////////////////////////////////////////////
  431. ; ////
  432. ; // Scripting components that support the Recording interface have the 
  433. ; // kOSASupportsRecording bit set in it's ComponentDescription.
  434. ; ////////////////////////////////////////////////////////////////////////////
  435. ; ////
  436. ; 
  437.  
  438.  
  439. (deftrap _OSASTARTRECORDING ((SCRIPTINGCOMPONENT (:POINTER
  440.                                                   :COMPONENTINSTANCERECORD)) (COMPILEDSCRIPTTOMODIFYID (:POINTER :SIGNED-LONG)))
  441.          (:STACK :SIGNED-LONG)
  442.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT COMPILEDSCRIPTTOMODIFYID ((+
  443.                                                                           (ASH 4 16) 1281) :SIGNED-LONGINT)))
  444.  
  445.  
  446. (deftrap _OSASTOPRECORDING ((SCRIPTINGCOMPONENT (:POINTER
  447.                                                  :COMPONENTINSTANCERECORD)) (COMPILEDSCRIPTID :SIGNED-LONG))
  448.          (:STACK :SIGNED-LONG)
  449.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT COMPILEDSCRIPTID ((+ (ASH 4 16)
  450.                                                                     1282) :SIGNED-LONGINT)))
  451.  
  452. ; 
  453. ; ////////////////////////////////////////////////////////////////////////////
  454. ; ////
  455. ; // OSA Optional WindowEditing Interface
  456. ; ////////////////////////////////////////////////////////////////////////////
  457. ; ////
  458. ; // Scripting components that support the WindowEditing interface have the 
  459. ; // kOSASupportsWindowEditing bit set in it's ComponentDescription.
  460. ; ////////////////////////////////////////////////////////////////////////////
  461. ; ////
  462. ; 
  463.  
  464.  
  465. (deftrap _OSAOPENEDITOR ((SCRIPTINGCOMPONENT (:POINTER
  466.                                               :COMPONENTINSTANCERECORD)) (COMPILEDSCRIPTTOMODIFYID (:POINTER :SIGNED-LONG)))
  467.          (:STACK :SIGNED-LONG)
  468.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT COMPILEDSCRIPTTOMODIFYID ((+
  469.                                                                           (ASH 4 16) 1537) :SIGNED-LONGINT)))
  470.  
  471.  
  472. (deftrap _OSACLOSEEDITOR ((SCRIPTINGCOMPONENT (:POINTER
  473.                                                :COMPONENTINSTANCERECORD)) (COMPILEDSCRIPTID :SIGNED-LONG))
  474.          (:STACK :SIGNED-LONG)
  475.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT COMPILEDSCRIPTID ((+ (ASH 4 16)
  476.                                                                     1538) :SIGNED-LONGINT)))
  477.  
  478. ; 
  479. ; ////////////////////////////////////////////////////////////////////////////
  480. ; ////
  481. ; // OSA Optional Dialects Interface
  482. ; ////////////////////////////////////////////////////////////////////////////
  483. ; ////
  484. ; // Scripting components that support the Dialects interface have the 
  485. ; // kOSASupportsDialects bit set in it's ComponentDescription.
  486. ; ////////////////////////////////////////////////////////////////////////////
  487. ; ////
  488. ; 
  489.  
  490.  
  491. (deftrap _OSASETCURRENTDIALECT ((SCRIPTINGCOMPONENT (:POINTER
  492.                                                      :COMPONENTINSTANCERECORD)) (DIALECTCODE :SIGNED-INTEGER))
  493.          (:STACK :SIGNED-LONG)
  494.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT DIALECTCODE ((+ (ASH 2 16)
  495.                                                                1793) :SIGNED-LONGINT)))
  496.  
  497.  
  498. (deftrap _OSAGETCURRENTDIALECT ((SCRIPTINGCOMPONENT (:POINTER
  499.                                                      :COMPONENTINSTANCERECORD)) (RESULTINGDIALECTCODE (:POINTER :SIGNED-INTEGER)))
  500.          (:STACK :SIGNED-LONG)
  501.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT RESULTINGDIALECTCODE ((+ (ASH 4
  502.                                                                              16) 1794) :SIGNED-LONGINT)))
  503.  
  504.  
  505. (deftrap _OSAAVAILABLEDIALECTS ((SCRIPTINGCOMPONENT (:POINTER
  506.                                                      :COMPONENTINSTANCERECORD)) (RESULTINGDIALECTINFOLIST (:POINTER :AEDESC)))
  507.          (:STACK :SIGNED-LONG)
  508.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT RESULTINGDIALECTINFOLIST ((+
  509.                                                                           (ASH 4 16) 1795) :SIGNED-LONGINT)))
  510.  
  511. (defconstant $typeOSADialectInfo :|difo|)
  512. (defconstant $keyOSADialectName :|dnam|)
  513. (defconstant $keyOSADialectCode :|dcod|)
  514.  
  515. ; 
  516. ; ////////////////////////////////////////////////////////////////////////////
  517. ; ////
  518. ; // OSA Optional Tinkering Interface
  519. ; ////////////////////////////////////////////////////////////////////////////
  520. ; ////
  521. ; // Scripting components that support the Tinkering interface have the 
  522. ; // kOSASupportsTinkering bit set in it's ComponentDescription.
  523. ; ////////////////////////////////////////////////////////////////////////////
  524. ; ////
  525. ; 
  526.  
  527.  
  528. (deftrap _OSAEXECUTEEVENT ((SCRIPTINGCOMPONENT (:POINTER
  529.                                                 :COMPONENTINSTANCERECORD)) (THEAPPLEEVENT :AEDESC) (CONTEXTID :SIGNED-LONG)
  530.                            (DEFAULTHANDLER :POINTER) (MODEFLAGS :SIGNED-LONG) (REPLY (:POINTER :AEDESC))
  531.                            (REFCON :SIGNED-LONG))
  532.          (:STACK :SIGNED-LONG)
  533.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT THEAPPLEEVENT CONTEXTID
  534.                DEFAULTHANDLER MODEFLAGS REPLY REFCON ((+ (ASH 24 16) 2049) :SIGNED-LONGINT)))
  535.  
  536.  
  537. (deftrap _OSAMAKECONTEXT ((SCRIPTINGCOMPONENT (:POINTER
  538.                                                :COMPONENTINSTANCERECORD)) (CONTEXTNAME (:POINTER (:STRING 255)))
  539.                           (PARENTCONTEXT :SIGNED-LONG) (RESULTINGCONTEXTID (:POINTER :SIGNED-LONG)))
  540.          (:STACK :SIGNED-LONG)
  541.   (:STACK-TRAP #xA82A :D0 0 SCRIPTINGCOMPONENT CONTEXTNAME PARENTCONTEXT
  542.                RESULTINGCONTEXTID ((+ (ASH 12 16) 2050) :SIGNED-LONGINT)))
  543.  
  544. ; $ENDC                         ;  UsingOSA 
  545.  
  546. ; $IFC NOT UsingIncludes
  547.  
  548. ; $ENDC
  549.  
  550. (export '($KEYOSADIALECTCODE $KEYOSADIALECTNAME $TYPEOSADIALECTINFO
  551.           $KOSASCRIPTBESTTYPE $KOSASCRIPTISTYPESCRIPTCONTEXT
  552.           $KOSASCRIPTISTYPESCRIPTVALUE $KOSASCRIPTISTYPECOMPILEDSCRIPT
  553.           $KOSASCRIPTISBEINGRECORDED $KOSASCRIPTISBEINGEDITED
  554.           $KOSASCRIPTISMODIFIED $KEYSOURCEEND $KEYSOURCESTART
  555.           $TYPEOSAERRORRANGE $KOSAERRORRANGE $KOSAERROROFFENDINGOBJECT
  556.           $KOSAERRORPARTIALRESULT $KOSAERRORAPP $KOSAERRORBRIEFMESSAGE
  557.           $KOSAERRORMESSAGE $KOSAERRORNUMBER $KOSASELECTCOMPONENTSPECIFICSTART
  558.           $KOSASELECTMAKECONTEXT $KOSASELECTEXECUTEEVENT
  559.           $KOSASELECTAVAILABLEDIALECTS $KOSASELECTGETCURRENTDIALECT
  560.           $KOSASELECTSETCURRENTDIALECT $KOSASELECTSTOPRECORDING
  561.           $KOSASELECTSTARTRECORDING $KOSASELECTGETCREATEPROC
  562.           $KOSASELECTSETCREATEPROC $KOSASELECTGETSENDPROC
  563.           $KOSASELECTSETSENDPROC $KOSASELECTCOERCETODESC
  564.           $KOSASELECTCOERCEFROMDESC $KOSASELECTGETSOURCE $KOSASELECTCOPYID
  565.           $KOSASELECTCOMPILE $KOSASELECTSCRIPTINGCOMPONENTNAME
  566.           $KOSASELECTEXACTSCRIPTINGCOMPONENT $KOSASELECTGETACTIVEPROC
  567.           $KOSASELECTSETACTIVEPROC $KOSASELECTGETSCRIPTINFO
  568.           $KOSASELECTSETSCRIPTINFO $KOSASELECTDISPOSE $KOSASELECTSCRIPTERROR
  569.           $KOSASELECTDISPLAY $KOSASELECTEXECUTE $KOSASELECTSTORE
  570.           $KOSASELECTLOAD $KOSASUPPORTSTINKERING $KOSASUPPORTSDIALECTS
  571.           $KOSASUPPORTSWINDOWEDITING $KOSASUPPORTSRECORDING
  572.           $KOSASUPPORTSAESENDING $KOSASUPPORTSAECOERCION $KOSASUPPORTSGETSOURCE
  573.           $KOSASUPPORTSCOMPILING $ERROSARECORDINGISALREADYON
  574.           $ERROSAINVALIDACCESS $ERROSABADSELECTOR $ERROSASCRIPTERROR
  575.           $ERROSABADSTORAGETYPE $ERROSAINVALIDID $ERROSASYSTEMERROR
  576.           $ERROSACORRUPTDATA $TYPEOSAGENERICSTORAGE $KOSASCRIPTRESOURCETYPE
  577.           $KOSANULLSCRIPT $KOSAGENERICSCRIPTINGCOMPONENTSUBTYPE
  578.           $KOSACOMPONENTTYPE))
  579. (provide-interface 'osa)
  580.